home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -screenplay- / shareware / footballbusiness / games / installfbusiness < prev    next >
Text File  |  1997-12-01  |  2KB  |  62 lines
  1. ;$VER:Script for FootballBusiness 1.8.6
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWillkommen zu \n"
  10. "FootballBusiness 1.8\n"
  11. "Hard Disk Install Script\n\n\n\n"
  12. ))(set #Warning-Txt
  13. (cat "Achtung !\n\n\n"
  14. "FootballBusiness 1.8 benötigt ca. 0.7 MB auf Ihrer Festplatte \n\n"
  15. "Updates bitte manuell vornehmen (siehe README-Datei)\n\n"
  16. ))(set #Path-Txt
  17. (cat "Wählen Sie das Ziel aus. Ein Unterverzeichnis mit\n"
  18. "dem Namen 'FBusiness' wird automatisch erstellt."
  19. ))(set #Path-Help
  20. (cat "\nThis section lets you choose the "
  21. "target directory to install FootballBusiness 1.8. \n\n"
  22. "A directory FBusiness will be created there.\n\n"
  23. "Default is Work:\n\n\n"
  24. @askdir-help
  25. ))
  26. (set Assign-Help-Txt
  27. (cat "\nA script located in the target directory wil make "
  28. "the Assigns. The User-Startup will be patched in order "
  29. "to call this script.\n\n\n"
  30. @startup-help
  31. ))
  32. ; Main 
  33.  
  34. (message #Intro-Txt)
  35. (message #Warning-Txt)
  36. (set target 
  37. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  38. ))
  39. (set @default-dest target)
  40.  
  41. (complete 25)
  42. (copyfiles
  43. (prompt "Copying to " #target)
  44. (help @copy-files-help)
  45. (source "/FootballBusiness/")
  46. (dest (tackon target "FBusiness"))
  47. (pattern "~(Disk.info|FBusiness.info|C|Libs|Devs|L|S|README|FBusinessINF|Inst#?)")
  48. )
  49. (complete 80)
  50.  
  51. (Copyfiles                                      ; Kopiere Schublade
  52. (prompt "Copying to " #target)
  53. (help @copy-files-help)
  54. (source"/FootballBusiness/FBusinessINF")
  55. (newname "FBusiness.info")
  56. (dest @default-dest)
  57. )
  58.  
  59. (set @default-dest (tackon target "FBusiness")) ;Log-Datei ins FB-Verzeichnis
  60.  
  61. (complete 100)
  62.